unit LoginInterface;

interface

uses Classes;

type
  ISplashForm=interface
    function ShowSplashForm:boolean;
    function CloseSplashForm:boolean;
  end;

  ILoginForm=interface
    function ShowLoginForm:boolean;
  end;

  function CreateSplashForm:ISplashForm;
  function CreateLoginForm:ILoginForm;

implementation

uses unSplashForm,unLoginForm;

function CreateSplashForm:ISplashForm;
begin
  result:=TSplashForm.Create(nil);
end;

function CreateLoginForm:ILoginForm;
begin
  result:=TLoginForm.Create(nil);
end;

end.
